Garbo/Garbo.cdr/mac/hypercrd/hc1_2_x/inptmthd.sit/Input Methods/card_5176.txt

Text File | 1989-11-24 | 8KB | 374 lines

-- card: 5176 from stack: in
-- bmap block id: 5800
-- flags: 0000
-- background id: 2696
-- name: Matching
----- HyperTalk script -----
on closeCard
  -- put the original picture back and unhilite the buttons
  -- CAUTION!  If you make changes to the picture, choose "Keep" before
  -- leaving the card or your changes will be lost if this handler runs!
  global matchCleanUp
  if matchCleanUp is empty then pass closeCard  -- nothing to clean up
  lock screen
  choose select tool
  doMenu "Revert"
  choose browse tool
  repeat with b = 1 to the number of buttons
    set hilite of card button b to false
  end repeat
  put empty into matchCleanUp
  pass closeCard
end closeCard

--ΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇö--
-- Match --
--ΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇö--
-- created by Jim Taylor  11/89
-- Microcomputer Support for Curriculum
-- 101 HRCB, Brigham Young University, Provo, UT 84602  [phone]
-- [e-mail]
--
-- This code has been released into the public domain.
--
on match whatToMatch
  global matchCleanUp
  if hilite of the target then  --already matched
    beep
    exit match
  end if
  set the hilite of target to true
  wait until the mouseClick
  if the mouseLoc is within rect of card button whatToMatch then --matched
    set the hilite of card button whatToMatch to true
    repeat 2 times  --flash the buttons
      flashButton the short name of target
      flashButton whatToMatch
    end repeat
    choose line tool  --draw line connecting buttons
    set the lineSize to 2
    set the dragSpeed to 500
    drag from loc of target to loc of card button whatToMatch
    choose browse tool
    play short name of target  -- speak the names
    play whatToMatch
    wait until the sound is "done"
    put "true" into matchCleanUp  -- need to clean up when done
  else  --didn't match
    beep
    set the hilite of target to false
  end if
end match

on flashButton buttonName
  repeat 6 times
    set the hilite of card button buttonName to not the hilite of card button buttonName
  end repeat
end flashButton




-- part 1 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=20 top=59 right=81 bottom=113
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Oregon
----- HyperTalk script -----
on mouseUp
  match "Salem"
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=83 top=123 right=145 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Vermont
----- HyperTalk script -----
on mouseUp
  match "Montpelier"
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=24 top=174 right=196 bottom=101
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Salem
----- HyperTalk script -----
on mouseUp
  match "Oregon"
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=131 top=290 right=312 bottom=220
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Montpelier
----- HyperTalk script -----
on mouseUp
  match "Vermont"
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=294 top=61 right=91 bottom=333
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Card
----- HyperTalk script -----
on mouseUp
  match "rolodex"
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=413 top=253 right=293 bottom=460
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Rolodex
----- HyperTalk script -----
on mouseUp
  match "card"
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=298 top=125 right=169 bottom=348
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cloud
----- HyperTalk script -----
on mouseUp
  match "rain"
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=319 top=263 right=317 bottom=373
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Rain
----- HyperTalk script -----
on mouseUp
  match "cloud"
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=281 top=218 right=250 bottom=314
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Clubs
----- HyperTalk script -----
on mouseUp
  match "spades"
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=388 top=114 right=146 bottom=421
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Spades
----- HyperTalk script -----
on mouseUp
  match "clubs"
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=349 top=194 right=233 bottom=401
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Letter
----- HyperTalk script -----
on mouseUp
  match "mailbox"
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=450 top=73 right=116 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Mailbox
----- HyperTalk script -----
on mouseUp
  match "letter"
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=71 top=224 right=246 bottom=150
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Trenton
----- HyperTalk script -----
on mouseUp
  match "New Jersey"
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=142 top=173 right=195 bottom=239
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Jersey
----- HyperTalk script -----
on mouseUp
  match "Trenton"
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=135 top=77 right=99 bottom=220
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Helena
----- HyperTalk script -----
on mouseUp
  match "Montana"
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=12 top=267 right=289 bottom=97
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Montana
----- HyperTalk script -----
on mouseUp
  match "Helena"
end mouseUp